home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / patch / pagestream / 3.1final_i1 / install-3.1 < prev    next >
Text File  |  1996-10-29  |  17KB  |  395 lines
  1. ;PAGESTREAM 3.0i "ONLINE" TO 3.1 ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1996 SOFTLOGIK PUBLISHING CORPORATION
  3.  
  4.  
  5. ;QUIT PROGRAMS
  6. (message "\n\nStop now if you haven't read the Read.1st! file for important instructions.\n\nIf PageStream, BME or PageLiner are running now, quit them before continuing.")
  7. (run "avail flush" (safe))
  8.  
  9. ;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
  10. (run "CD PageStream3:" (safe))
  11. (run "CD SoftLogik:" (safe))
  12. (run "assign fonts: softlogik:fonts add" (safe))
  13.  
  14. ;CONFIRM CORRECT VERSION IS INSTALLED, SET DESTINATION
  15. (message ("\n\nThis patch will update your PageStream 3.0i hard drive installation to the final version of 3.1.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have installed 3.0i from an online patch before using this patch."))
  16. (if (<> (exists "PageStream3:PageStream3") 1)
  17.     (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3.0i before applying this update patch.")
  18. )
  19. ;get destination
  20. (set PGSdest (getassign "PageStream3" "a"))
  21. (set SLdest (getassign "SoftLogik" "a"))
  22. (if (OR (= PGSdest "") (= SLdest ""))
  23.     (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream 3.0i before applying this update patch.")
  24. )
  25. (set PGSsize (getsize "PageStream3:PageStream3"))
  26. (if (= PGSsize 1530808)
  27.     (abort "You downloaded pgs31_i1.lha instead of pgs31_i2.lha. Please read the Read.1st! file for instructions.")
  28. )
  29. (if (= PGSsize 1522840)
  30.     (abort "You downloaded pgs31_i1.lha instead of pgs31_i3.lha. Please read the Read.1st! file for instructions.")
  31. )
  32. (if (<> PGSsize 1530924)
  33.     (abort "You have the wrong version of PageStream installed. Please read the Read.1st! file for instructions.")
  34. )
  35. (set @default-dest PGSdest)
  36.  
  37. ;UPDATE FONT PATHS
  38. (message "\nThe first time you start PageStream 3.1, it will update each of your font paths. This means that starting the program will take a lot longer the first time.")
  39. ;UPDATE FONT PATHS
  40. (textfile
  41.     (dest "t:PageStream3.prefs")
  42.     (include "PageStream3:PageStream3.prefs")
  43.     (append "UPDATEFONTPATHS TRUE\n")
  44.     (safe)
  45. )
  46. (delete "PageStream3:PageStream3.prefs" (safe))
  47. (copyfiles
  48.     (source "t:PageStream3.prefs")
  49.     (dest "PageStream3:")
  50.     (nogauge)
  51. )
  52. (delete "t:PageStream3.prefs" (safe))
  53.  
  54. ;MAKE REQUIRED DIRECTORIES IF THEY DON'T EXIST
  55. (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  56. (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
  57. (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  58. (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
  59. (if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos)))
  60. (if (<> (exists "SoftLogik:Special") 2) (makedir "SoftLogik:Special" (infos)))
  61. (if (<> (exists "SoftLogik:Special/Keys") 2) (makedir "SoftLogik:Special/Keys"))
  62. (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  63. (if (<> (exists "PageStream3:Scripts") 2) (makedir "PageStream3:Scripts" (infos)))
  64. (if (<> (exists "PageStream3:Scripts/TextClips") 2) (makedir "PageStream3:Scripts/TextClips" (infos)))
  65. (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  66.  
  67. ;DELETE OLD FILES
  68. (delete "SoftLogik:Filters/IFFDTXT.tfilter" (safe))
  69. (delete "SoftLogik:Filters/Word.tfilter" (safe))
  70. (delete "SoftLogik:Filters/WordPerfect5.tfilter" (safe))
  71. (delete "SoftLogik:Engines/XPress.codes" (safe))
  72. ;DELETE OLD MACRO
  73. (delete "PageStream3:Macros/duplicatetopage.rexx" (safe))
  74. ;DELETE OLD CACHED PFB FILES
  75. (delete "PageStream3:Fonts/Intellifonts/91545.pfb" (safe))
  76. (delete "PageStream3:Fonts/Intellifonts/91547.pfb" (safe))
  77. (delete "PageStream3:Fonts/Intellifonts/91546.pfb" (safe))
  78. (delete "PageStream3:Fonts/Intellifonts/91548.pfb" (safe))
  79. ;DELETE OLD FONT FILES
  80. (delete "PageStream3:Fonts/StandardFonts/avnt_do.dmf" (safe))
  81. (delete "PageStream3:Fonts/StandardFonts/avnt_o.dmf" (safe))
  82. (delete "PageStream3:Fonts/StandardFonts/hlvn_bo.dmf" (safe))
  83. (delete "PageStream3:Fonts/StandardFonts/hlvn_o.dmf" (safe))
  84. (delete "PageStream3:Fonts/StandardFonts/cour_bo.dmf" (safe))
  85. (delete "PageStream3:Fonts/StandardFonts/cour_o.dmf" (safe))
  86. (delete "PageStream3:Fonts/StandardFonts/book_di.dmf" (safe))
  87. (delete "PageStream3:Fonts/StandardFonts/book_i.dmf" (safe))
  88. (delete "PageStream3:Fonts/StandardFonts/pala_bi.dmf" (safe))
  89. (delete "PageStream3:Fonts/StandardFonts/pala_i.dmf" (safe))
  90. (delete "PageStream3:Fonts/StandardFonts/schl_bi.dmf" (safe))
  91. (delete "PageStream3:Fonts/StandardFonts/schl_i.dmf" (safe))
  92. ;DELETE OLD FILTERS
  93. (delete "SoftLogik:Filters/IFFDTXT.tfilter" (safe))
  94. (delete "SoftLogik:Filters/WordPerfect5.tfilter" (safe))
  95. (delete "SoftLogik:Filters/Word.tfilter" (safe))
  96. (delete "SoftLogik:Filters/ProPage.dfilter" (safe))
  97. ;FOR GERMAN USERS
  98. (delete "PageStream3:PageStream3.rsrc" (safe))
  99. ;DELETE PGS.MIL and PGS.MIS if in wrong directory
  100. (delete "PageStream3:Help/PGS.MIL" (safe))
  101. (delete "PageStream3:Help/PGS.MIS" (safe))
  102. ;DELETE OLD HELP FILES
  103. (delete "PageStream3:Help/PGS.DOC" (safe))
  104. (delete "PageStream3:Help/PGS.EDI" (safe))
  105. (delete "PageStream3:Help/PGS.GRA" (safe))
  106. (delete "PageStream3:Help/PGS.LAY" (safe))
  107. (delete "PageStream3:Help/PGS.MAC" (safe))
  108. (delete "PageStream3:Help/PGS.MEN" (safe))
  109. (delete "PageStream3:Help/PGS.OBJ" (safe))
  110. (delete "PageStream3:Help/PGS.PRO" (safe))
  111. (delete "PageStream3:Help/PGS.SAL" (safe))
  112. (delete "PageStream3:Help/PGS.SUB" (safe))
  113. (delete "PageStream3:Help/PGS.TEX" (safe))
  114. (delete "PageStream3:Help/PGS.MSU" (safe))
  115. (delete "PageStream3:Help/PGS.TYP" (safe))
  116. (delete "PageStream3:Help/PGS.VIE" (safe))
  117. (delete "PageStream3:Help/BME.EDI" (safe))
  118. (delete "PageStream3:Help/BME.EFF" (safe))
  119. (delete "PageStream3:Help/BME.MAC" (safe))
  120. (delete "PageStream3:Help/BME.MEN" (safe))
  121. (delete "PageStream3:Help/BME.PRO" (safe))
  122. (delete "PageStream3:Help/BME.SET" (safe))
  123. (delete "PageStream3:Help/BME.TOO" (safe))
  124. (delete "SoftLogik:Engines/Français.language" (safe))
  125. (rename "SoftLogik:Engines/English.dictionary" "SoftLogik:Engines/American.dictionary" (safe))
  126. (delete "SoftLogik:Engines/XPress.codes" (safe))
  127. (delete "SoftLogik:Engines/ProPage.codes" (safe))
  128.  
  129.  
  130. ;COPY THE LHEX PROGRAM TO RAM:
  131. (copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge))
  132.  
  133. ;UPDATE LIBS
  134. (working "Installing Updated Libraries...")
  135. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
  136. (delete "Libs.LHA" (safe))
  137.  
  138. ;UPDATE PRINTERS
  139. (working "Installing Updated Printer Drivers...")
  140. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Printers.lha")
  141. (delete "Printers.LHA" (safe))
  142.  
  143. ;UPDATE FILTERS AND EFFECTS AND SPECIAL
  144. (working "Installing Updated Filters...")
  145. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha")
  146. (delete "Filters.LHA" (safe))
  147. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x NewFilters.lha")
  148. (delete "NewFilters.LHA" (safe))
  149. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x Effects.lha")
  150. (delete "Effects.LHA" (safe))
  151. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Special x Special.lha")
  152. (delete "Special.LHA" (safe))
  153.  
  154. ;UPDATE ENGINES
  155. (working "Installing Updated Engines...")
  156. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
  157. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Languages.lha")
  158. (delete "Engines.LHA" (safe))
  159. (delete "Languages.LHA" (safe))
  160.  
  161. ;UPDATE HELP
  162. (working "Installing Updated Help Files...")
  163. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.lha")
  164. (delete "Help.LHA" (safe))
  165.  
  166. ;UPDATE SCRIPTS
  167. (working "Installing Updated Scripts...")
  168. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Scripts x Scripts.lha")
  169. (delete "Scripts.LHA" (safe))
  170.  
  171. ;PATCH EXTRAS TO LATEST VERSION IF APPLICABLE
  172.  
  173. (run "ram:lhex >NIL: <NIL: -qfw=ram: x Patch.LHA")
  174.  
  175. ;TRUETYPE FONT ENGINE
  176. (if (= (exists "SoftLogik:Engines/TTF.font") 1)
  177.     (
  178.         ; PATCH TTF.KEY TO LATEST VERSION
  179.         (if (= (exists "SoftLogik:Special/Keys/TTF.key") 1)
  180.             (
  181.                 (run "spatch -oram:TTF.font -pram:TTF.pch SoftLogik:Special/Keys/TTF.key")
  182.                 (if (= 37284 (getsize "ram:TTF.font"))
  183.                     (copyfiles (source "ram:TTF.font") (dest "SoftLogik:Engines"))
  184.                     (message "\n\nYour TrueType font engine could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem TTKEY2NEW.")
  185.                 )
  186.                 (delete "ram:TTF.font" (safe))
  187.             )
  188.         )
  189.     )
  190. )
  191. (delete "ram:TTF.pch" (safe))
  192.  
  193. ;WORDWORTH DOC FILTER
  194. (if (= (exists "SoftLogik:Filters/Wordworth.dfilter") 1)
  195.     (
  196.         ; PATCH WWDOC.KEY TO LATEST VERSION
  197.         (if (= (exists "SoftLogik:Special/Keys/WWdoc.key") 1)
  198.             (
  199.                 (run "spatch -oram:Wordworth.dfilter -pram:WW.pch SoftLogik:Special/Keys/WWdoc.key")
  200.                 (if (= 35388 (getsize "ram:Wordworth.dfilter"))
  201.                     (copyfiles (source "ram:Wordworth.dfilter") (dest "SoftLogik:Filters"))
  202.                     (message "\n\nYour Wordworth document filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem WWKEY2NEW.")
  203.                 )
  204.                 (delete "ram:Wordworth.dfilter" (safe))
  205.             )
  206.         )
  207.     )
  208. )
  209. (delete "ram:WW.pch" (safe))
  210.  
  211. ;TEXT FX EXTENSION
  212.  
  213. ;GET RID OF TEXTFX1 KEY IF V2 EXISTS
  214. (if (AND (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1) (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1))
  215.     (delete "SoftLogik:Special/Keys/TextFX1.key" (safe))
  216. )
  217.  
  218. ; PATCH TEXTFX1.KEY TO LATEST VERSION
  219. (if (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1)
  220.     (
  221.         (run "spatch -oram:TextFX.extension -pram:TextFX1.pch SoftLogik:Special/Keys/TextFX1.key")
  222.         (if (= 39508 (getsize "ram:TextFX.extension"))
  223.             (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  224.             (message "\n\nYour TextFX1 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
  225.         )
  226.         (delete "ram:TextFX.extension" (safe))
  227.     )
  228. )
  229. (delete "ram:TextFX1.pch" (safe))
  230.  
  231. ; PATCH TEXTFX2.KEY TO LATEST VERSION
  232. (if (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1)
  233.     (
  234.         (run "spatch -oram:TextFX.extension -pram:TextFX2.pch SoftLogik:Special/Keys/TextFX2.key")
  235.         (if (= 46768 (getsize "ram:TextFX.extension"))
  236.             (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  237.             (message "\n\nYour TextFX2 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
  238.         )
  239.         (delete "ram:TextFX.extension" (safe))
  240.     )
  241. )
  242. (delete "ram:TextFX2.pch" (safe))
  243.  
  244. ;JPEG FILTER
  245. (if (= (exists "SoftLogik:Filters/JPEG.gfilter") 1)
  246.     (
  247.         ; PATCH JPEG.KEY TO LATEST VERSION
  248.         (if (= (exists "SoftLogik:Special/Keys/JPEG.key") 1)
  249.             (
  250.                 (run "spatch -oram:JPEG.gfilter -pram:JPEG.pch SoftLogik:Special/Keys/JPEG.key")
  251.                 (if (= 95320 (getsize "ram:JPEG.gfilter"))
  252.                     (copyfiles (source "ram:JPEG.gfilter") (dest "SoftLogik:Filters"))
  253.                     (message "\n\nYour JPEG filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem JPKEY2NEW.")
  254.                 )
  255.                 (delete "ram:JPEG.gfilter" (safe))
  256.             )
  257.         )
  258.     )
  259. )
  260. (delete "ram:JPEG.pch" (safe))
  261.  
  262. ;GARY'S EFFECTS
  263. (if (= (exists "SoftLogik:Effects/HSB.effect") 1)
  264.     (
  265.         ; PATCH GARY.KEY TO LATEST VERSION
  266.         (if (= (exists "SoftLogik:Special/Keys/Gary.key") 1)
  267.             (
  268.                 (run "spatch -oram:Convolve.effect -pram:convolve.pch SoftLogik:Special/Keys/Gary.key")
  269.                 (if (= 11228 (getsize "ram:Convolve.effect"))
  270.                     (copyfiles (source "ram:Convolve.effect") (dest "SoftLogik:Effects"))
  271.                     (message "\n\nYour Convolve effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  272.                 )
  273.                 (run "spatch -oram:Histogram.effect -pram:histogram.pch SoftLogik:Special/Keys/Gary.key")
  274.                 (if (= 5676 (getsize "ram:Histogram.effect"))
  275.                     (copyfiles (source "ram:Histogram.effect") (dest "SoftLogik:Effects"))
  276.                     (message "\n\nYour Histogram effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHT.")
  277.                 )
  278.                 (run "spatch -oram:HSB.effect -pram:HSB.pch SoftLogik:Special/Keys/Gary.key")
  279.                 (if (= 6452 (getsize "ram:HSB.effect"))
  280.                     (copyfiles (source "ram:HSB.effect") (dest "SoftLogik:Effects"))
  281.                     (message "\n\nYour HSB effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  282.                 )
  283.                 (run "spatch -oram:Average.effect -pram:Average.pch SoftLogik:Special/Keys/Gary.key")
  284.                 (if (= 5728 (getsize "ram:Average.effect"))
  285.                     (copyfiles (source "ram:Average.effect") (dest "SoftLogik:Effects"))
  286.                     (message "\n\nYour Average effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  287.                 )
  288.                 (run "spatch -oram:Gamma.effect -pram:Gamma.pch SoftLogik:Special/Keys/Gary.key")
  289.                 (if (= 14360 (getsize "ram:Gamma.effect"))
  290.                     (copyfiles (source "ram:Gamma.effect") (dest "SoftLogik:Effects"))
  291.                     (message "\n\nYour Gamma effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  292.                 )
  293.                 (run "spatch -oram:Maximum.effect -pram:Maximum.pch SoftLogik:Special/Keys/Gary.key")
  294.                 (if (= 6256 (getsize "ram:Maximum.effect"))
  295.                     (copyfiles (source "ram:Maximum.effect") (dest "SoftLogik:Effects"))
  296.                     (message "\n\nYour Maximum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  297.                 )
  298.                 (run "spatch -oram:Minimum.effect -pram:Minimum.pch SoftLogik:Special/Keys/Gary.key")
  299.                 (if (= 6244 (getsize "ram:Minimum.effect"))
  300.                     (copyfiles (source "ram:Minimum.effect") (dest "SoftLogik:Effects"))
  301.                     (message "\n\nYour Minimum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  302.                 )
  303.                 (run "spatch -oram:Median.effect -pram:Median.pch SoftLogik:Special/Keys/Gary.key")
  304.                 (if (= 6252 (getsize "ram:Median.effect"))
  305.                     (copyfiles (source "ram:Median.effect") (dest "SoftLogik:Effects"))
  306.                     (message "\n\nYour Median effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  307.                 )
  308.                 (run "spatch -oram:Solarize.effect -pram:Solarize.pch SoftLogik:Special/Keys/Gary.key")
  309.                 (if (= 4628 (getsize "ram:Solarize.effect"))
  310.                     (copyfiles (source "ram:Solarize.effect") (dest "SoftLogik:Effects"))
  311.                     (message "\n\nYour Solarize effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  312.                 )
  313.                 (run "spatch -oram:Threshold.effect -pram:Threshold.pch SoftLogik:Special/Keys/Gary.key")
  314.                 (if (= 5032 (getsize "ram:Threshold.effect"))
  315.                     (copyfiles (source "ram:Threshold.effect") (dest "SoftLogik:Effects"))
  316.                     (message "\n\nYour Threshold effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  317.                 )
  318.             )
  319.         )
  320.         (delete "ram:Convolve.effect" (safe))
  321.         (delete "ram:Histogram.effect" (safe))
  322.         (delete "ram:HSB.effect" (safe))
  323.         (delete "ram:Average.effect" (safe))
  324.         (delete "ram:Gamma.effect" (safe))
  325.         (delete "ram:Maximum.effect" (safe))
  326.         (delete "ram:Minimum.effect" (safe))
  327.         (delete "ram:Median.effect" (safe))
  328.         (delete "ram:Solarize.effect" (safe))
  329.         (delete "ram:Threshold.effect" (safe))
  330.     )
  331. )
  332. (delete "ram:Convolve.pch" (safe))
  333. (delete "ram:Histogram.pch" (safe))
  334. (delete "ram:HSB.pch" (safe))
  335. (delete "ram:Average.pch" (safe))
  336. (delete "ram:Gamma.pch" (safe))
  337. (delete "ram:Maximum.pch" (safe))
  338. (delete "ram:Minimum.pch" (safe))
  339. (delete "ram:Median.pch" (safe))
  340. (delete "ram:Solarize.pch" (safe))
  341. (delete "ram:Threshold.pch" (safe))
  342.  
  343. (delete "Patch.LHA" (safe))
  344.  
  345.  
  346. ;UPDATE BME
  347. (if (exists "PageStream3:BME")
  348.     (
  349.         (working "Patching BME to new version...")
  350.         (run "ram:lhex >NIL: <NIL: -qfw=ram: x BMEpatch.LHA")
  351.         (delete "BMEpatch.LHA" (safe))
  352.         (run "spatch >NIL: <NIL: -oPageStream3:BMEnew -pram:BME.pch PageStream3:BME")
  353.         (if (exists "PageStream3:BMEnew")
  354.             (
  355.                 (delete "PageStream3:BME")
  356.                 (rename "PageStream3:BMEnew" "PageStream3:BME")
  357.             )
  358.             (message "\nThe patch to BME was not successful. Refer to the Read.1st! file for further instructions.")
  359.         )
  360.         (delete "ram:BME.pch" (safe))
  361.     )
  362. )
  363.  
  364. ;UPDATE PAGESTREAM3
  365. (working "Patching PageStream to new version...\n\nThis will take a while...")
  366. (run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA")
  367. (delete "PGSpatch.LHA" (safe))
  368. (run "spatch >NIL: <NIL: -oPageStream3:PageStreamNew -pram:PageStream.pch PageStream3:PageStream3")
  369. (if (exists "PageStream3:PageStreamNew")
  370.         (
  371.                 (delete "PageStream3:PageStream3")
  372.                 (rename "PageStream3:PageStreamNew" "PageStream3:PageStream3")
  373.         )
  374.         (abort "The patch to PageStream was not successful. Refer to the Read.1st! file for instructions.")
  375. )
  376. (delete "ram:PageStream.pch" (safe))
  377.  
  378. ;DISPLAY README (Try 3 different ways!)
  379. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
  380. (delete "Read.LHA" (safe))
  381. (IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
  382.         (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
  383.                 (run "More PageStream3:ReadMe.Now")
  384.         )
  385. )
  386.  
  387. ;REMOVE THE LHEX PROGRAM
  388. (delete "ram:lhex" (safe))
  389. (delete "spatch" (safe))
  390.  
  391. (delete "Install-3.1.info" (safe))
  392.  
  393. ;DONE
  394. (exit "Finished updating PageStream to version 3.1.")
  395.